home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib13.dsk
/
HPLOT ANIM LISTING 2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
562b
|
12 lines
90 SHAPE = 147:INCR = 4: HGR
100 POKE 251,SHAPE: POKE 207,INCR: REM SET SHAPE# AND INCREMENT
110 CALL 38095: REM ERASE
120 IF PEEK(37636) + PEEK(37637) *256 > = (279 -INCR) THEN 180: REM TEST RIGHT EDGE OF SCREEN
130 CALL 38167: REM MOVE RIGHT 1 INCREMENT
140 CALL 38102: REM DRAW
150 GOTO 110: REM KEEP MOVING RIGHT
160 CALL 38095: REM ERASE
170 IF PEEK(37633) + PEEK(37634) *256 < = (0 +INCR) THEN 130: REM TEST LEFT EDGE OF SCREEN
180 CALL 38196: REM MOVE LEFT 1 INCREMENT
190 CALL 38102: REM DRAW
200 GOTO 160: REM KEEP MOVING LEFT